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MASSACHDSETTS INSTITUTE OP TECHNOLOGY 

Project hAZ 

Artificial Intelligence Project MetaoranduH, MAC-M-153 (Revised) 

Memo 67 (Revised) 

REVISED USER'S VERSION 
Time Sharing LISP 

by William Martin arid Timothy Bart 

1. Introduction 

This memo describes changes to the LISP system by several people. The 
changes reduce printout and give the us«sr store control over it. They also 
make it possible for LISP to coosnunicats with the teletype and the disk. 

The last sections describe programs available in the public files which are 
useful for printing, editing, and debugging LISP functions. 

This system and the supporting programs allow the user to quickly assemble 
that combination of functions and data reeded for a particular job. This 
makes it unnecessary to keep duplicate :opies of functions in different com¬ 
binations . The writing of functions to handle rare cases can be postponed 
by intercepting calls to these functions with breakpoints. Breakpoints are 
also useful for restricting recursion during debugging and to avoid a long 
trace printout before an error condition, which is known but not understood, 
is reached. Certain errors in syntax wLll be found by the print program and 
most conceptual errors are readily corrected with the edit program. 
t„ CTSf Command 

MMMBlMi SiaVHWaMIAMWM 

LISP X This command will cause the LISP system to read 

and evaluate file x DATA. If x is not supplied, 
the system will read LISP DATA A convenient way 
to operate is to let file LISP DATA contain the 
single pair LISTEN NIL followed by STOP, LISTEN 
is described in the next section* 

3. LIS? Functions for Communication with the Teletype 

rif lx[ ] The value of RHFLX is one S-expression reed frees 

the teletype, 


T 


T 



Itsten[ ] 

backtrace[ ] 

gcgaglx] 
comprint[ k] 
setbkl ] 

savbk[ ] 
ersetq[form] 

ea 

print [x] 

LISP Functions 
Reading 

fileseek[x;y] 
read( ] 


LISTEN accepts doublets for evalquote from the 
teletype. It prints out their value. If an error 
occurs, LIST!Si waits for a new doublet. When It 
receives STOP it returns NIL as Its value. 

Prints the backtrace at the tine of the last error, 
unless there has been a garbage collection after 
the error „ 

If x la NIL, there will be no garbage collector 
printout. Tin g.c. Is Initially silenced. 

If x Is NIL, the compiler printout Is reduced. The 
compiler Is -initially silenced. 

After this function has been executed, an Interrupt 
signal will cause error[$$$ $] to be executed and 
the break to be reset. SKTBK can only be used to 
a depth of 3 Ons should combine this with BRSKTQ. 
An initial setbk has been performed. 

Negates SBTBK. 

Returns value NIL if eval [formalist] causes an 
error. Returns list [eval[fora;alist]] otherwise. 
It is used wr.th SETBK. The alist used is the alist 
current when ERSETQ is called. 

Returns eva la; alist]. This is useful on the eval- 
quote level where it allows one to type the doublet 
EC00M8 X Y) ns tend of EVAL ((CONS X Y) NIL). 

Prints the S*expression x on the teletype. 

for Communication with the Disk 


7ILESXEK opens disk file x x *° r reading. Its value 
is NIL. 

The value of READ Is the next S-expression read 
from the currently open file. 
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flleen«!rd(x;y) 

evalre«d[x;y;z) 


loadta^ou...1 
run[x] 

f»cvt«(x;y) 


Writing 

filevrlte[x;y;z] 
filespndtx;y;z J 
filedelete[x;y] 


Closes file jj, which was opened by FILESEKK. 

Reads doublets for evalquote from file x £ until 
STOP is read. The entire file is read before any 
doublets are evaluated. If a is SPEAK, the values 
of the doublets are printed oat, otherwise not. 

This nay be used recursively, i.e., the file being 
evalread nay use EVALREAD. 

Perform evalread [a. ;MT&; NIL] for each i. 

evalread [x; DATA; SPEAK] 

EXECUTE first inda fines the functions of the 1NLIST 
described in section 5. It then perform evalread 
[x;DATA;NIL]. It next evaluates the function x 
with argumnt list j. It returns this vslue sfter 
reading the files on the IHLIST back in. 

\ 

Creates a file £ £ containing an S-expression z. 
Appends S-expression z to file [x %}. 

Deletes file x 


Internal Changes to LISP 

1, ERROR does not print the index registers. Use s PM for index 4 . 

2, ERROR does not print s backtrace. 

% 

3, The argumnts of EVALQUOTE ere net: printed. 


4. The cons counter is turned off. 


5. Every file brought in by LOAD or EVALREAD is examined for DEFINE 
stateasmts. A list of the file's nans and the fund time defined in 
it is attached to the constant BUST. 


LISP Functions for Debugging 

bre*kl[at;y;s] The third argumnt is optional. If x evaluates 

to true, than either BREAK or.if a third argu¬ 
mnt is given, the evaluation of z it printed. 
BRKAStl than listens to the teletype for S-expres- 
sions. If STOP is received, it returns the evalu- 







at ion of £ as Its value » If RETURN a Is received 
it returns the evaluation of a.. Any other S-expres¬ 
sion received is evaluated and printed; BREAK1 then 
listens for another. Note that expressions can be 
executed for their effect. 

break[x;y;z 1 Redefines EX PR x = (LAMBDA (X^Xj. <■.) FORM) to 

be (IiMBMCX^...) (BREAK1 y FORM z) ). 

unbreak[X] Redefines X to negate BREAK 

7. Printing 

There is a file PRINT DATA 1 or print - * function definitions in a nice 
format. In this file there is a function prettyprint[e] which will print out 
the definitions of the EXPR or F1XPR defined functions mentioned in the list 

v 

e. The function printd[file] wi'.l print the definitions in the file with first 
name file if It has been read in 

8, A LISP Program to Edit USP Functions in Time-Sharing 
Int roduc tion 

'MBANMMMStWWNPSMMVBMMPSMBMSfeaWMMMNmh 

This program makes it possible to debug LISP functions without returning 
to the system monitor. An updated version of the define statements of files 
which contain these functions an<1 which have been read into the LISP ayetern 
is automatically kept on the dish. 

The program consists of several functions which are described below. The 
main function, EDIT, tears apart and rebuilds the EXPR of the function to be 
edited. EDIT is directed by a series of one word commands. In the explanation, 
we let u be the S-expresslor. which EDIT holds. This editor is contained in a 
file called EDIT DATA 

Functions 


edit[crj 


atorlu] s us“ getfa;EXFR] 

T us* get[car[a]; cadr[a]] 

Edit then accepts the following commands 

A 

ti 

'-■* car[u 

D 

U 

!',«* cdr[u’ 

PRINT 

II 

is printe d 

MARK 

u 

is marks*! for return from within u. 





an -.nteger n 


APPEND a 
DELETE n 
LIST n 
DROP 


® l» reconstructed until s nark is reached. 

The car-cdr chain leading to u is printed, 
n con's are performed toward reconstructing u„ 
us* append[a;uj 

The n'th sublist in the top level of u is deleted. 
The first n eleam&ts of u are listed. 

The cons above u is deleted. 


SUBST q p 
USE a 

am a 

MATCH a 

STOP 

RESTORE 


DEPINE 

OR 


output[a;B;y;P] 


vs* subst lajp;ul 

subst lu;ElPiaSSION;a] 
us--«cons tajuj 

Edit finds the expression a within u, keeping track of 
its car-cdr address,, us-a. An expression (A (B C D) E F> 
my be abbreviated (A (B COT) COT). 

Edit returns FINISH and does not redefine the function. 

Edit totally reconstructs u and redefines the function. 

It also creates tr updates disk ft es. For every file 
a B which was read in and which defined the function 
being edited, a file a EDIT with all function defined 
in a B as they exist in the LISP System at that tism is 
created or updated. Edit returns FINISH. 

DEFINE is the save ns RESTORE except that it does not 
update the disk. 

If edit receives an incorrect command, or it cannot 
carry out a MATCH or DELETE command it reports this and 
then ignores all further commands until it receives OK. 

Creates disk file a B which contains the functionc defined 
in yP» if yP has been read in. 


flleXistadd(a....a );b;y] 

Adds functions 3^ to those defines in b y and creates 
file b EDIT. It ibes this by altering the constant 


INLIST. 



Coament 


Since EDIT works with S-expressloos it is poor for correcting parenthesis 
errors. Most other corrections can be expressed by typing a short string of 
co —s a nd s on one line and then proceding to the next exaaple. At first sane 
of the strings ere conceptually difficult to produce, but as the user learns 
the grsonar they becone such easier, thus, EDIT is best for those who sake 
extensive use of LISP. 

Bxsoole 

The following output illustrates sons of the edit cou—mds. 

rest—e lispc ty 

HAIT, 

VALUE 


1 . 

NIL 

load ((edit tmk)) 


2. 

NIL 

edit (trnkl) print 


3. 

(LAMBDA (X Y) (CORD ((NULL X Y) (I <(XKS (EPLS 
(CAR X) (CAR Y)) (TRNK1 (CDR X) (COR Y)))))) 
natch epls 1 print 


4. 

(XPLS (CAR X) (CAR Y» 
nark d print 


5. 

((CAR X) (CAR Y)) 

notch car 1 aubst (car expression) return print 


6. 

(BPLS (CAR (CAR X» (CAR Y» 

restore 



FINISH 


7. 

edit(trnkl) nstch t 1 print 



(T {CONS (XPLS (CAR (CAR X)) (CAR F» (TENKl (COR X) 

(CDR Y)))) 

8. 

cons (x y) print 



((X Y) T CONS (EPLS (CAR (CAR X)) (CAR Y)) (TRNK1 (CDR X) (CDR Y)))) 

9. 

d drop 1 print 



((T (CONS (SPL8 (CAR (CAR X)) (CAR Y)) (TRNKl (CDR X) 

(CDR Y))))) 

10. 

Stop 



FINISH 




1. We reed in the file* edit date sad trnk dete. 

2. We went to edit the fanetion TR9K1 defined in tcak date. Edit grupi Ite 

definition. 

3. We find e cer-cdr chain dona to SPL3, then retorn one cane end print. 

4 c w# iirk our oli€i and tdet edr fring 

\ ■.■.*■•■ ; : . : '.;; : .V -.""v vy ‘ ■ 

5. We find the first CIS, go beck one to pet @]ll X) end then safest!tote to 
get (CIS (CAR X)). 

A. We ere finished with 1RMK1. 

7. We natch T and retnrn 1, 

8. OC T) is cons'd to this espreseien. 

9. We take edr sad then drop the (X T) * Oefa^ op a level and printing, we 
see that the (X T) is gene. 

/"■'y 10. We do not wish to redefine the function. 
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ADDENDUM 


by Killian Martin end Timothy lart 


The LISP System deacribad in this nanorandun it being tested and 
debugged. This is a list of differences which eta currently noted 
between the syaten described in the nanorsodun and the syaten currently 
available. 

1. The 0X88 ronaand is CTE8T1 not LISP. 

2. The input pairs for aealouota ats taken frsn the file CZE8T1 BATA. 
If a ** 00006 " file is male fron OT8T1 and nsnsd X SAVED, than the 
input for mis file wilt be the file X ESSEX. 

3. Mo initial jtS&lfc ^ performed. 
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